home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.06.lha / AmiCAD / ARexx / Dater.AmiCAD < prev    next >
Text File  |  1999-05-25  |  726b  |  31 lines
  1. /* Inscription de la date */
  2. /* Version 1.00: 2 décembre 1998 */
  3. /* Version 1.01: 25 mai 1999 (utilisation rexxlocaldates.library) */
  4. /* $VER: 1.01 (© R.Florac, 25/5/99) */
  5.  
  6. options results     /* indispensable pour récupérer le résultat des macros */
  7.  
  8. signal on error     /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. IF (~SHOW('L','rexxlocaldates.library')) THEN
  12.   CALL ADDLIB('rexxlocaldates.library',0,-30,0)
  13.  
  14. Ib = OpenLocale()
  15.  
  16. jour = FormatDate(Ib, ,"%A %e %B %Y")
  17.  
  18. 'WRITE("'jour'",0,0)'
  19.  
  20. exit
  21.  
  22. /* Traitement des erreurs, interruption du programme */
  23. syntax:
  24. erreur=RC
  25. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  26. exit
  27.  
  28. error:
  29. 'MESSAGE("Erreur en ligne 'SIGL'")'
  30. exit
  31.